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FFF 000 000 RRR RRR RRR = =RRR TTT LLL 
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001 MODULE FORSSUDF Wr CeTI ThE ot ‘FORTRAN Read Formatted UDF’ ; 
008 ow ! File: FORUDFRF.B32 Edit: SBL1043 
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is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
it DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 
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FACILITY: FORTRAN Support Library - not user callable 
ABSTRACT: 


This module implements FORTRAN Read Formatted 1/0 
statements (sequential access - S, direct access - D, 
DECODE - M) at the User data Formatter level of 
abstraction (UDF Level is 2nd level). This module 
calls the Read/write independent format 

interpreter (FORSINTERP) to decode the compiled format 
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statement. This module calls the appropr late read record 
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4 ; routine at the record handling level of abstraction (REC 

? ape level is 3rd level) to read a record. 
? Bee ENVIRONMENT: User access mode; reentrant AST Level or not. 
? ope9 AUTHOR: Thomas N. Hastings; CREATION DATE: 20-Feb-77 
4 0048 ! p00 IF 1D BY: 
4 0049 ! Poey tous edit history removed. SBL 29-Oct-1982] 
5 0050 ! 1-036 - snstesd of using zero ELEM_SIZE to determine a call from 
5 O02 ! S$SUDF_RF9, uSe a zero ECEM_TYPE. This allows 
5 beg , sire strings to be iBagresse? correctly. 
5 005 : 11-30127 SBL 22-May-1 
5 0054 ! 1-037- Use new ff loging lheuk” conversion routine, OTSSCVT_T_F. 
5 0055 ! JAW 14-A Apr 1981 
5 0056 ! 1-038 - Convert Gaserar INTRP1 to JSB b inkoge . JAW 29-Jul-1981 
5 0057 ! 1-039 = Use OTSSCVI_T_F instead of OTS$CVT_T_D when format is D/E/F/G 


FORTRAN 


1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 


SB 195-0198 


Read Formatted UDF on3¢ -1984 AX-11 Blisg-32 V4.0-7 

3 : 19-s00-1944 99: 45: $5 FORRTL. $k Cir FORUDFR PAY 09551 
' and eronent 7 is not floating (FORVARMIS), JAW 05-Aug-1981 

1-040 ae Te uire tle, FORMSG, Bie in preparation for enhanced error 

i 1-041 Cite text’ in error and_ rrent record number when signaling 

i INPCONERR. JAW 27—Au 9-1981 

} 1-042 put indexed ane nternal fites, P ee, 3 a secondary, gersage that doesn't 

} ut out a record number 

1-043 e to use LONPnOL.OS REQ. ne a hertasee to OTS$CVT routines PIC. 

i 


1384 99:48:8) PORRT SR ESF Rupr ar 63 31 rae (23 
: | 


i PROLOGUE FILE: 
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FORSRUOF RF FORTRAN Read Formatted UDF 16-Sep 
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IN NIOS 


IN: FORPROLOG'; FOR$ definitions 


Optimize for speed 


oo 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
FOR 


~ 
—OVOODNOUSWN—"OVOONOULSWNO 


OOOO DOWODOOWOODOONN NNN 


(E, Ww, S, NDX) 
(E49 + U6 + ga8 + NDX) X; 


ed | : JSB_UDFO NOVALUE, ! initialization 
FORSSUDF-RF1 : CALC_CCB NOVALUE, ! format one user 1/0 List element 
CORB SUD AFD. : JSB_ODF9 NOVALUE, ! end of user I/0 list = finish 
DO_RE DO + ih NOVALUE, ! do per-record formatting and read 
MOVE CHAR SROVACUE i Same as CHSMOVE | 
COPY_CHAR; ! Same as CHSCOPY 
' 
| MACROS: | 
| 
MACRO 
94 RF_EOLST = 
95 0,7,1,0%, ! Check for end of user I/0 List 
96 RF CHECKW = 
97 0,6,1,0% ! Check for w positions left | 
RF’ SHORT = 
0,5,1,0%, ! Check for short string 
| 0,4,1,0% spare 
M RF _DISPAT = 
0,0,470%; ! CASE index for dispatch 
MACRO ! Attribute packing macro for attribute table | 


i] 

| EQUATED SYMBOLS: 
! NONE 

OWN STORAGE: 


ND 
RF_ACT = 


format codes are structured as follows: 

do nothing 

call intermediate record processing routine 
do nothing 

not used 
move right (old X format) 

copy Hollerith 

return no. of character positions remaining 


Action table for UDF_RF1, UDF_RF9 format codes 
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A(1,0,0, 0), ' _DF ' nF = default F 

A(1,0,0, 0), ; we ! nE = default E 

A188: Be | mB > SENMaEE § 
9 nv = geTau 

) : VECTOR (54, BYTE); 


+ 
' Declare table y conversion routine addresses. This will be filled in 

! by FORSSUDF_RFO upon first w had i Entries 0-3 are the integer conversion 
: routines for the formats L, 0, I and Z, respectively. The only other 

! elements filled in are those Corressene ‘ae to datatypes F, D, G and H; 
these elements are indexed by the DSCSK datatype code. 
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AA_IN_ CVT: VECTOR ERSCEK DT YPE Het, LONG], 


T 
CVT_INIT: INITIAL ( ! 1 if array initialized 


; EXTERNAL REFERENCES: 


aNVLs 


EXTERNAL 

FORSSAA_REC_PRO : VECTOR, PIC array of record processor 
rocedure-initializations in REC 
evel of abstraction. Indexed by 

1/0 statement type (ISBSB_STTM_TYPE) 


PIC array of record processor procedures 


FORSSAA_REC_PR1 : VECTOR; 


Read a record in REC Level of 
abstraction. Indexed by 1/0 statement 
type (ISBSB_STTM_TYPE) 


EXTERNAL ROUTINE 
OTS 


OTS$CVT_TO_L, 
OTSSCVT_TILL, 
OTSSCV L 


S$CVT 
FORSSFMT_INTRPO : JSB_FMTO NOVALUE, 
FORSSFMT-INTRP’ : JSB~FMT1 NOVALUE. 


“only input conversion 
and D input conversion 
input conversion 
input conversion 2 
format input conversion 
format input conversion 
format input conversion 
format input conversion 

initialize format interpreter 

get next data format code 

or input-output format code 


F 
F 
G 
H 
L 
0 
I 
Z 


FORSSSIGNAL : NOVALUE, 
FORSSSIGNAL_STO : NOVALUE; 


convert FORTRAN err &# to 
VAX error # and SIGNAL 
convert FORTRAN err # to 


VAX error # and SIGNAL_STOP 


04 
05 
06 
07 
08 
09 
10 
i} 
1§ 
Ww 
15 
16 
17 
18 
19 
20 
$3 
38 
24 
25 
26 
sf 

8 
$3 

0 
31 
38 
34 
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FORSSUDF _RF FORTRAN Read Formatted UDF 16-Sep-1984 46:27 AX-11 Bliss-32 V4.0-74 P 
be 12786871382 99:98:85 HeSa aT sae Sromubr ay 63.1 age 38 
3 7 00 1 GLOBAL ROUTINE FORSSUDF_RFO ' R f F initi 
3 0 Me RUURED NOUALUE. = ead formatted UDF initialization 
: 240 08 1 t+ 
3 o 6¢ : FUNCTIONAL DESCRIPTION: 
: 43 3 ; Initialize read Formatted User data formatter (UDF) 
: 45 Q 08 ' CALLING SEQUENCE : 
: 4 0 10 JSB FORSSUDF_RFO 
: 49 6 le | FORMAL PARAMETERS: 
: 251 0314 1 | NONE 
; 28 0315 1! 
3 $27 83/8 : IMPLICIT INPUTS: 
: $2? ORs : CCB Pointer to current logical unit block 
: 257 0320 1: I1SB$B_STTM_TYPE 1/0 statement type code - set b 
3 $28 O35) : each 1/0 atetenent initialization 
: soy 0338 : ; IMPLICIT OUTPUTS: 
: 26 0325 1: LUB$A_BUF _BEG Adr. of first byte of input data buffer 
s 2 0326 1! LUBSA_BUF _PTR Adr. of next byte of input 
3; 264 0327 1! data buffer 
; 265 0328 1! LUBS$A_BUF __HIGH Adr. of high water byte in input buffer on this 
: 266 0329 1! 1/0 statement 
; 267 0330 1! LUB$A_BUF _END Adr. +1 of Last char position allocated 
; son te : to input buffer 
: 270 $335 1 | ROUTINE VALUE: 
3 $f Otte } COMPLETION CODES: 
; $78 0336 1 | NONE | 
: 274 0337 1! 
: $7? O85 : SIDE EFFECTS: 
; oon ret ' Initializes array AA_IN_CVT upon first entry. 
: 279 O34¢ 1 ie 
: $B See ) BEGIN 
; 28¢ 0345 
; 28 0346 EXTERNAL REGISTER 
3 sae ire CCB : REF SFORSCCB_DECL; 
; 286 0349 ‘+ 
3; 2er 0350 ! Initialize Record processing level of abstraction. 
: 288 0351 ! Set pointer to current (LUBSA_BUF_PTR) and lLast+1 
: 289 0326 ' (LUBSA_BUF_END) character position for user data in 
: 30 B27 ;_input buf fer 
; 3 0535 
> 29 356 JSB_RECO (FORSSAA_REC_PRO + .FORSSAA_REC_PRO C.CCB CISBSB_STIM_TYPE] - ISBSK_FORSTTYLO + 1)); 
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'¢ 
! Initialize character pointer to first position for user 
data in input buffer = needed only for T AND $ formats 


CCB CLUBSA_BUF_BEG) = .CCB CLUBSA_BUF_PTR); 
4 
Initialize Format interpreter 


FORSSFMT_INTRPO (); 


'¢ 

! Initialize character pointer to highest position written in 
! user data buffer for this record. T format may position to 
the left. 


CCB CLUBSA_BUF_HIGH] = .CCB CLUBSA_BUF _PTR); 


1+ 

! ALL other ISB locations and flags have mgt ay | been 

! initialized to 0 or a specified value by the 1/0 statement 
initialization for this 1/0 statement. 


'+ 
! If array of conversion routine addresses has been intialized, then 
return, Otherwise, initialize it. 


IF gCut Inst 
RETURN; 


'¢ 
Store the conversion routine addresses in AA_IN_CVT. 


AA_IN_CVT C_L = _LJ = OTSSCVT_TL_L; ' L format integer conversion 
AALIN_CVT (_0 = _LJ = OTSSCVT_TO_L; ! 0 format integer conversion 
AA_IN_CVT C_1I = LJ = OTSSCVT_TILL; ! I format integer conversion 
AA_IN_CVT C2 = LJ = OTSSCVT_T2 1; ' 2 format integer conversion 
AA-INCVT COSCSKIDTYPE_F) = OTSSCVT_T_F; ! F_floating conversion 
AA_IN_CVT CDSCSK_DTYPE_DJ = OTSSCVT_T_D; ! D_floating conversion 
AA_IN_CVT CDSCS$K_DTYPE_G] = OTSSCVT_T_G; ! G_floating conversion 
AA_IN CVT CDSCSK_DTYPE_H] = OTSSCVT_T_H; ! H_ floating conversion 
CVT_IRNIT = 1; ! Sét initialized flag 
RETURN; 
ND; ! End of FORSSUDF_RFO routine 
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; 349 411 1 GLOBAL ROUTINE FORSSUDF_RF1 ( ! Format one user {nous element 

3; io tig 1 ELEM_TYPE, ! Type code of user 1/0 List element 

; 351 413 1 ELEM_SIZE, ! No. of addressable units in element 

; 26 414 1 ELEM ADR) ! Adr. of element 

; 35 0415 1 CACL_CCB NOVALUE = 

; 354 Be18 1 

3 399 0417 1 !+4+4 

; 23 eat : } FUNCTIONAL DESCRIPTION: 

; 358 0420 1! FORSSUDF _RF1 extracts the next field (W characters fromkt 

; 59 0421 1! format statement, or up to next comma in input buffer, or end of 

3s 360 be ¢ 1 ! input buffer, whichever occurs first) from the input buffer and 

; 361 4 | converts it according to the type specified by the format 

3; 0426 1! statement and the size specified by the data type of the user 

3; 0425 1! 1/0 List element. 

; 364 0426 1! FORSUDF_RF1 and the format interpreter 

; 365 0427 1! (FORSSFAT_INTRP1) interpret all format codes until the 

: 366 0428 1! first 1/0 List element Rrqnsaitting format code is 

3 6567 0429 1! encountered and then continues up to but not including the next 

; 308 pay : data transmitting format code. 

; 370 0432 1! FORSSUDF_RF1 is also called by FORSSUDF_RF9 if and only if 

3 Sf) 04335 1! there were no 1/0 List items to transmit, thereby causing the 

; ¢ Boge ! non-data transmitting format codes to be executed. 

3; 374 0436 1 ! CALLING SEQUENCE: 

3; 3 0437 1! 

; 38 eh 4 ! CALL FORSSUDF_RF1 (elem_type.rlu.v, elem_size.rlu.v, elem_adr.wx.r) 

: 378 0440 1 ! FORMAL PARAMETERS: 

; 379 0441 1! 

; 380 0442 1! ELEM_TYPE.rlu.v Type code of user 1/0 List 

; «(381 04435 1! element. Form: ELEM_TYPE_x 

; 382 0444 1! x = B,W,L,WU,LU,F,D,G,H,FC,DC,GC or T. 
; 383 0445 1! If zero, then this is an end-of-List 

; 384 0446 1! call from FORSSUDF_RF9. 

3; 385 0447 1! ELEM_SIZE.rlu.v Size of user 1/0 List element 

: 386 0448 1! in addressable machine units (VAX, bytes) 
3 fer 0449 1! ELEM_ADR.wx.r Adr. of user 1/0 List element 
; 388 0450 1! x = datatype 
; 389 0451 1! 

: 390 beg 1! 

; 391 0453 1 ! IMPLICIT INPUTS: 

3 3 Bee 1! 

; #39 455 1! CCB Pointer to current logical unit block 

: 394 0456 1! I1SB$B_STTM_TYPE 1/0 statement type code - set by each 

3 336 ott ! 1/0 statement initialization 

3; 397 0459 1! The following ISB locations are set only by previous calls to 
; $05 Beet ! FORSSUDF_RF{0,1}, i.e., are effectively OWN. | 
; 400 bees 1: LUBSA_BUF _BEG Pointer to first char. position in 
; 401 4635 1! user data part of input buffer 
; 40 0464 1! LUBSA_BUF _PTR Pointer to next char. position 
; 40 465 1! in user data part of input buffer 
3 404 466 1! LUBS$A_BUF _END Pointer to last+1l char. position 
; 405 467 1! in user data part of input buffer 


H 
FORSEUOF RF FORTRAN Read Formatted UDF 16-$ 
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ep-1984 AX-11 Bliss-32 V4.0-74 
14- - 134 99: $3: 5 FORRTL. ORC IFORUDER FRF.B 63351 
; £06 168 1! foi Loving ISB locations are set by the format interpreter 
3 rf rts ! Mor SFMT_INTRP1) which this module calls 
; 209 471 1! ISBSA_FMT_PTR Pointer to next char. position 
; 410 rh 1 i in user data A for of input buffer 
>; 411 473 1! Used only A format. 
3 tig 474 1 ISBSW_FMT_W Field width (w) 
: 41 475 1! ISB$B_FMT_D No. of fraction digits (d) 
3; 4146 278 1 ISBSB_FMT_E No. of exponent characters (e) 
; rh be a6 : 1SB$B8_FMT_P Signed scale factor (p) 
; 417 oh 44 1 | IMPLICIT OUTPUTS: 
; 418 480 1! 
; 419 0481 1 / ISBSA_FMT_PTR Pointer to next char. position 
; 420 et) 1! in compiled format character string 
; ? 1 bez : Changed only for H format. 
; 4 : 0485 1! The SRSSuDF R 158 Locations are set only by peveteus calls 
3 tSe Bees ! to FORSSUDF_RF{0O,1}, i.e., are effectively OWN 
; 426 0488 1 / LUBSA_BUF _PTR gutater ae Ry +. ghee. pest tiog 
; 427 0489 1! in use 2 pert nowt uffer 
; 428 0490 1! I1SB$B_ERR_NO FORS TNPCONER (£30 INP T CONVERS ON ERROR') - 
: $6? 0491 1! overflowed field is filled w 
: rh 983 1 FORS_FORVARMIS (61= ‘FORMAT/VARIABLE= TYPE MISMATCH’) 
3 $e 494 1 i FUNCTIONAL VALUE: 
; 43 495 1! 
; 434 0496 1! NONE 
: 435 0497 1! 
: 436 498 1 | SIDE EFFECTS: 
: 437 0499 1! 
: 438 0500 1 i- 
: 439 0501 1 
; 440 b208 2 BEGIN 
; 441 0503 2 
; 46 0504 § EXTERNAL REGISTER 
; 44 0505 CCB : REF SFORSCCB_DECL; 
> 444 0506 2 
3: «4445 0507 § Be 
; 446 0508 ELEM_ADR : REF VECTOR; ! element is call-by-reference 
: 447 0509 § 
: 448 0510 GLOBAL aegi ster : 
> 449 0511 EL_SIZE = 10, ! Element size 
; 450 B2t¢ DT SEEN = 9 ' Data transmitter seen 
> 451 051 FMT_CODE = & : BLOCK C1, LONG); i Format code 
3 $26 0514 
; «45 0515 LOCAL 
3 454 0516 ACT : BLOCK (1, LONG), ' Action table entry for format code 
; 455 0517 2 BUFPTR, ! Input buffer pointer from IS 
3; 456 0518 2 FMT_W, ! Input field width from ISB 
; tH rah DSC’: BLOCK (8, BYTE); ! Static string desciptor for 
3; 459 0521 ! output field 
: 460 05 § ; 
; 461 05 EL_SIZE = .ELEM_SIZE; ! Fetch first argument 
: 462 0524 
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itd 1e-Sep-19 4 99:98:85 FORRTL. RCIFORUDF RE .B3 i1 . (4) 
: 463 525 + : 
+ 464 § ! Set DT_SEEN to zero unless this is a call from FORSSUDF_RF9 ; 
> 465 ! (no items in 1/0 List) in which case set DT_SEEN to 1 sO that : 
: £68 8 ' we stop on the next data transmitter. : 
; 46 b2 9 l : 
; 468 530 ; 
; 469 0531 IF .ELEM_TYPE EQL 0 THEN DT_SEEN = 1 ELSE DT_SEEN = 0; ; 
; 470 05 § : 
; «471 05 ‘+ : 
3 67 0534 ! Execute format items until we come across one which calls for 
s 67 0535 ' an 1/0 List item that we don't have. 
; 474 B2 $ = 
; 475 5 
; 476 0538 WHILE 1 DO 
3 477 0539 
; 478 0540 + 
; 479 0541 2 ! Get next format code requiring input interpretation: 
; 480 R206 2 ' 1. If we are in a repeated format code (nI, not n(I)), 
> 481 0545 2 : save a call to the format interpreter by getting the 
; 48 0544 2 : stored code ourselves. If this would mean that we 
3 ret pete 2 exit, do so without decrementing the repeat count. 
; 485 0547 $ ! 2. Otherwise, call the format interpreter to get the next 
: 486 0548 2 : format code. 
; 487 0549 2 : ‘ 
; 488 0550 2 : 3. If this format code is a data transmitter (or : or EOF), 
; 489 0551 2 : and we have already seen a data transmitter, exit. It 
; es b226 § will still be there if we come back. 
3 > beee 2 } Dispatch on format code and select appropriate actions. 
; 494 0556 3 
; 6495 0557 BEGIN 
; 496 0558 ; 
; 497 0559 IF .CCB CISBSW_FMT_REP] GTR 1 AND .CCB CISBSB_FMT_CODE] LSSU _DA 
; 498 0560 3 THEN 
; 499 0561 4 BEGIN 
; 500 0962 4 FMT_CODE = .CCB CISB$B_FMT_CODE); | 
: 501 0563 4 ACT = .RF_ACT C.FMT_COBE); 
3 206 0564 4 
; 0565 4 IF .DT_SEEN 
; 504 0566 4 THEN 
; 505 0567 4 
; 506 B208 4 IF .ACT CRF_EOLST] THEN EXITLOOP; 
; 507 569 4 
: 508 0570 4 CCB CISBSW_FMT_REP] = .CCB CISBSW_FMT_REP) - 1; 
; 509 B27) 4 END 
; 510 276 3 ELSE 
gs St 0573 4 BEGIN 
; 218 0574 4 
a B20? 4 ‘+ . 
3; «5146 576 4 ' If DT_SEEN is true, then we only want to know if the next 
3 S15 0577 4 ' format code would transmit a data item. Rather than have 
; 516 0578 4 ! the high overhead of calling the format interpreter, we 
3 OV 0579 4 ! can look ahead into the format for this information. We 
3; «6518 0580 4 ' can't make a 100% determination, so if the format is not 
; «519 0581 4 ! an “‘EOLST’’ type, call the format interpreter anyway. 
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FORTRAN Read Formatted UDF 1b-Sep-19 
os ep- 
: This is a speed optimization. If n 
S can be removed w 


} between the ‘'!«* 


'en 


IF_ .DT_SEEN 
N 


BEGIN 
LOCAL 

P; : 
P = .CCB CISBSA_FMT_PTR); 
FMT_CODE = CHSRCHAR (.P); 
FMT~CODE CV_FMT_REPRE) = 0; 
ACT™= .RF_ACT CUFMT_CODE); 


IF .ACT CRF_EOLST] THEN EXITLOOP; 
END; 


‘en 
FORSSFMT_INTRP1 (); 


ACT = .RF_ACT C.FMT_CODE); 


ALL data 
F,E.G,D, except Q plus H): 
Setu q 
(ISBSW_FMT_W) and next char position 
for output” (LUBSA_BUF PTR) i 

output 


string descri 


IF .ACT CRF_CHECKW) 
THEN 


PVE SBS BB BR BB BM NNN MANNA MME BBB BBE BEE EDA BB PPP PEE 


BEGIN ; 


Be 92:43:80 


n 
uffer. Check for field extendin 
end of buffer and set DSCCDSCS$W_LENGTH) in ; 
ptor to no. of characters which remain 
in input buffer if would run off the end. 


AX-11 Oh legate ePh ate | 
FORRTL.SRCJFORUDFRF .B32;1 
cessary, the code 

th no functionality Loss. 


Pointer into format 


! Get next format code. 
! Clear bit for comparison 


! End of List type 


Call format interpreter. 
Implicit arguments are EL_SIZE 
and DT_SEEN. Implicit result 
is FMT_CODE. 


IF .DT_SEEN AND .ACT CRF_EOLST] THEN EXITLOOP; 


generating format codes (A,L,0,2,1 
Sir ing, Coecrioter to field of width Ww. 


g beyond 
n 


BEGIN 

DSC CDOSCS$W_LENGTH] = .CCB CISB$W_FMT_WJ; 

DSC Dscse pr veed = DSCSK_DTYPE_T; 

DSC CDSCS$B-CLASS) = DSC$K CLASS S; 

DSC DSCSA_POINTER} = .CCB CLUBSA_BUF PTR); 

CCB CLUBSA_BUF_PTR) = CHSPLUS (.CCB CCUBSA_BUF_PTR], .CCB CISBSW_FMT_W]); 
iF (CCB CLUBSA_BUF_PTR] GTR .CCB CLUBSA_BUF_END)) 


Field would extend beyond end of buffer - reset 


Be Se Oe Se Se Se Se Be Se Se Ge Se Ge Ge Se Se Te Ge Se Ge Fe Ge Se Se Se Ge Ge Se Se Ge Se Ge Se Ge Se Se Se Se Ge Se Se Se ee ee FH Se ee Se Se Se Se Se Seasas 


a kk a a kk a tt ht ot tt 


d of format or / format code seen: : 

Ll record processing level (REC_PR1) for appropriate 
atement type. \\ Note that we now allow direct access 
les to read more than one record. 

itialize all input buffer pointer for next record 
sta 1/0 statement, e.g., ISBSA_BUF_{BEG,PTR,END) 


En 
Ca 
st 
fi 
In 
in 
and ISB$V_DOLLAR = 0. 
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1-04 1o78087 1382 99:98:85 HeSante sresronubeas 03951 * sl 
; a 078 ; +4 COSCSW_LENGTH] = MAX (CHSDIFF (.CCB CLUBSA_BUF_ENDJ, .DSC CDSCSA_POINTER]), 0); 
; 579 ot) 4 
; tg 4 + 
3 1 645 4 ' Short input field check, i.e., a field terminated 
; ¢ 644 4 : by an explicit comma in the data earlier 
; 38 645 4 ! than the width of field specified by the format statement. 
; «584 oe8 4 ! If a short field, reduce to include up to but not including 
; 585 647 4 ! the comma, but advance character pointer (LUBSA_BUF_PTR? 
: Hs 0648 4 ! beyond the comma, so it will not be found on next element. 
; 58 649 4 ' A zero Length field is treated as a string of spaces. 
; 266 220 4 le 
; 589 651 4 
; 590 634 4 IF .ACT CRF_SHORT 
; 591 Bee 4 THEN 
; 236 654 2 BEGIN 
; 59 0655 
; 594 2928 2 LOCAL 
3 44 +t 44 : P; ! temporary character pointer 
; | 
; 597 0659 5 P = CHSFIND_CH (.DSC CDSCS$W_LENGTH], .DSC CDSCSA_POINTER], %C',"'); 
; 598 0660 : 
; 599 0661 IF .P NEQ 0 
; 600 R06 5 THEN 
; 601 0665 6 BEGIN 
; 60 0664 6 DSC CDSC$W_LENGTH) = CHSDIFF (.P, .DSC CDSCSA_POINTER)); 
: 60 0665 6 CCB CLUBSA_BUF_PTR] = CHSPLUS (.P, 1); 
; 604 0666 5 : 
; 605 0667 5 P 
; 606 0668 4 END; ! End of short field check 
; 60 0669 4 
; 60 0670 3 END; ! End of CHECKW 
; 60 0671 3 
s 61 067 ; CASE .ACT CRF_DISPAT] FROM 0 TO 9 OF 
; 61 067 SET 
; 6! 0674 3 
s 6} 0675 3 (0) : 
; «61 0676 
3; «61 0677 ‘+ ; ; 
; (61 0678 ! Colon: onty get here if not end of user 1/0 List, 
3 : +t 3 so keep on looking for a data transmitting format code. | 
; (61 0681 | 
; bee 3 ! do nothing 
; 68 
3 2 0684 C1] : 
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JF .ELEM_TYPE LSSU DSCSK_OTYPE BU OR .ELEM TYPE GTRU DSCSK_DTYPE_a 
CCB CISB$B_ERR_NO) = FORSK_FORVARMIS; 
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ee fad 12286571384 13:48:85 FORRTL. SRC IFORUDFRE B32; 1 a) 1-0 
; ? ¢ a DO_READ (FORSSAA_REC_PR1 + .FORSSAA_REC_PR1 (.CCB CISBSB_STTM_TYPE] - ISBSK_FORSTTYLO + 1]); | : ! 
: 6 698 [2] : 3} 
; 6 ; 699 : 1 
; 638 9700 1+ 2] 
; 6359 701 ' Dollar sign: Do nothing for read. $ only affects write Bh 
; 640 70 in 2] 
: 641 0708 | 3 
; # 0703 ; ! do nothing | et 
; 644 0706 (3) : : 7 
; 645 707 i] 
ei ; 4 
rol BO ; No longer used. ; 1 
; 649 0711 ry 
: Bat Or18 ' | sl 
: 65 0714 [4] : al 
; 88 0715 3 | 21 
; 654 0716 1+ | si) 
; 655 0717 ; i nx i] 
; 656 0718 ' Move right n characters. This format code is no longer : 3! 
: at 4444 H generated, but it must continue to work for old programs. | ; + 
: 659 0791 al 
; 44 O72 ; CCB CLUBSA_BUF_PTR] = CHSPLUS (.CCB CLUBSA_BUF_PTR], .CCB CISB$W_FMT_WJ); | : \' 
: 66¢ 0724 3 (5) : 21 
; 66 0725 a 
664 0736 ; 4 | 4 
; 665 0727 ! mHccccc: Holerith = copy n (DSC$W_LENGTH) chars 21 
: 666 0728 3 ! from input buffer to format array. Update format 21 
; 667 3494 3 ! character pointer (ISBSA_FMT_PTR). Format array is 21 
; 668 0730 ' blank padded if data in array is shorter than format. 21 
Be EG - dl 
: 671 6738 3 CCB CISBSA_FMT_PTR) =_COPY_CHAR (.DSC CDSC$W_LENGTH], .DSC CDSCS$A_POINTER], sy 
3; 67 0734 3 .CCB CYSBSQ_FMT_w), .CUB CISBS$A_FMT_PTRJJ; 21 
: 67 0735 3 21 
5 674 0736 (6) : | 21 
; 675 0737 3 1 
: 676 0738 1+ 21 
; 677 44 9 ' Q@ format - return no. of character positions remaining ; 1 
: 678 740 : in input buffer (ie., in record) as an integer. i 1 
; 679 0741 ! Size of integer depends on size of user 1/0 List element data type. 
; 680 1544 ! If user element Sype is not integer, SIGNAL and store 
; 6681 074 ' into low order 32 bits. 
; «468 0744 ! Then exit loop and return to user program 
: Bee ee és 
; 685 O74) 4 BEGIN 
; 5749 4 
3 0750 4 
; 0751 4 
3 0752 4 


4 
16-Sep-19 AX-11 Bliss-32 V4.0-74 
14-Sep eats 99: 48: gf FORRTL.SR aeironubeae 8B “B9351 
a -EL_SIZE)*%BPUNIT, 0> = MAX (0, 

B$A BUF _ENDJ, 
A_BUF _PTRIJ); 
ENB; ! End of Q input 
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! 

! nAw.d and nA tormats: Copy string from input field to user data element. 
' Copy Tlgnrnaest characters up to datatype size and 

: _blank fill remainder if any. 


BEGIN 
+ 


i If the element is greater than the format width, 
i then move the characters and blank fill. 


IF .EL_SIZE GTRU .DSC CDSCS$W_LENGTHI 


copy. erg -OSC COSC$W_ LENGTH), 
oe C CDSC$A_POINTER], .EL_SIZE, .ELEM_ADR) 


BEGIN 
+ 


i Element size is less than or equal to format width. 
i Tf less than, move riprtaces characters only. Use 
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20 

21 

$8 non=character moves i possible. 
24 

3 acy ELEM PTR, 

sf F_PTR; 

$3 1 IF get size LSSU .DSC CDSC$W_LENGTH) 
3 738 nese = .DSC COSCSA_POINTER] + (.DSC CDSC$W_LENGTH] - .EL_SIZE) 
a re? BUF _PTR = .DSC CDSCSA_POINTER]; 
35 +99 ELEM_PTR = .ELEM_ADR; 

36 798 

37 799 CASE .EL_SIZE FROM 0 TO 8 OF 

38 800 SET 

39 801 

40 Hk : 

41 80 BEGIN 

4@ 804 COPY_QUAD_A (BUF_PTR, ELEM_PTR); 
74 805 ND; 

744 508 
745 80 C7) : 

746 $08 BEGIN 

747 09 COPY_LONG_A (BUF PTR, ELEM_PTR); 


=° Sc el coe eel mel ee el cl eel el el cee eel ll ee el el el el el ll eh el el el ek ek el et ek ee 


“uc OO Oe Oe SOS HS ee Oe FS He FS FS FS PS Se PS ES SSCS HSS SSS SSH HS FS SESE FSFE Ste SFE *S HESS FSS SSS FESS 


on“ 
-—-~wv 
~ 
oe 
ao 
A] 
a 
_ 
~~ 
= > 
oy all 
nr . 
be All > 
~o 3 
q e — 
ou = 
rT: 4 . 
ru 3 
>a - 
= a 
Ne ~ 
moO 
iu eo. « 
or on 
nu o~ 
—a ox 
—n ~vU 
@- cH 
ou! —< 
he ee. + 
-a ~ ~~) 
‘oc < o= 
xo a c= 
qu a. . 
>uw ' “vw 
= -a | 
w >o 
ail ~~ 3 
uw cio 
~o ets sere ete *. cere *. *. 7 ow Cc 
NAN OA an ~ om ~ a7“ ~~ ~ ewido 
coco CECE cc cae i. 4 ca e < . ea~— 
oN ee oo oe — ae a b— a —<« 
rn Aa aa aa a aa a a — eo @ 
oe oe ts [i ie | fi '? t t a - gc 
on FE == z= = == = = t ~wto 
| om ww usu wu w wus uw w sSu> 
er oD aad adh wad I ae ad — a Qa- ® 
wr uw wu wu w wus w wi @ eae 
} aoco ° 3. <«o 
} on ss es. ss * ss . 7 ooze 
-——- ec ca ca <= ca [i 4 a ° aw 
tee re mi i ied —_ —_ uw ~-O 
aa aa aa aa a aa a. a ~ _s we @& 
| ~we@ Le te 's 7 tt t t 4 ete Ww | 
| Vw we verve 7 iv = wn" —o@i— 
| ts =a po ee | at - = an -_ a a “$e @& | 
| Bowr woo aw ao @ ao @ ao ab oso | 
ror ~—— ~~ ~~ ~ ~~— a — uw 7 ~~ +* I 
. —_— = | 
bn To 9 << <a 4 << = << ~~ ~~ | 
a) mz 1 : os ‘ ‘ nied 
| Ow oa Ow oO ow oa w a “” *=O 
er za ze Pa cre a _ “<< ~ oc c | 
o> oo o> oO o> oO > = eat 
3a 23 @ 4 30 =] a mo en~vowv 
! te zee Zz te 2 1 z= te z= zi w | oor | 
>> +s — ee +e — > > +e — > +s —> > +s — > +e “> +s Ow o oOo | 
aas wa2a0a waaao oasa waacs ecaa vaca 2> - eu | 
oo2z woowz wood woz wood woz woz xo ~ 6 
vwuw Mvoow Mvovow Ovrw ~"Mvrrw ~Oow -Mow cz &— OA E& 
ol *e *e euvuc 
te] to | La) am Lan an) Lo] ~ -< - ao oo | 
oO w ~~ ~m NM - o oO w owas | 
ws ww uw uw rar) ro) wee a " ~v | 
+e coun | 
a2 oan 
Zz uw eZee 
Wee —-— C 
o <-u 5 | 
—-z > 8 | 
Quw mommies 


DOMWAWNDO DO OMNIN OO DONNA DO OWN DO DO OMAN DO OWWAWA DO OWA LVL SF SF SF EEE EET 


OM WNT OR- DOO MMT OR- DAO MUM FT MNOR. DHOK— MUM TNOR. DHOOM TMN OR. DOO UM TINO 
NUNC PID SF ET ESS ETT TOMMMAMNAANNOOOOOO0D 
€0.00.00 60 00 00 00 00.60.60 00. G0. G0 60 G0 00 a0 6D GD 00 00 00 aD aD GD GD aD aD aD GD GD GD 00 a0 GD GD 0D GO a0 G0 aD GD GD GD G0 G0 G0 G0 G0 Gd. cd. ap a0 G0 GO G0 cD 
COOOCOCOOOCOOCCOSOSOOOCOOCOSOOSOSOSOSOSOSOOCOSCOSCOSCSOOOOCOOOCOOOOOOOOOOOOOOOOoO OO 


FORTRAN Read Formatted UDF 


DOOM CUM TM OP- DOO 
FTMAMMMMAMMAMNnNOO 
Lt ed ed ed ed ed ed ed ed ed ed ee 


SUDF RF 


FORS 
1-04 

76 

re 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
79 

79 

794 
795 
796 
797 
798 
799 
800 
801 
804 


PRPS HS HES Pe ES HS TS HS HS HS HS HS FS HS HSS HS HSS FS HS HS FSS SHS ee HSS FS FS sete tS *S*S FR FS Fe FSS *S*S FS *S Fe *e*eteartererta*e*S*S*e 


5 
FORSSUDF_RF FORTRAN Read Formatted UDF 12-Sep-1984 00:46:27 VAKe11 BLiss-32 v4.0-76 a 
1-043 1erep- 1 3be 99398380 | LAMA SReSFonubE AL 63551 “ s 


| 
| 
; 805 ope? 3 
; 508 0868 4 BEGIN 
: 807 +44 4 
: B09 Bet _— ' No. of addressable units { 
. ; ' No. of addressable units in 
: 810 Bere 4 
3 3) 0875 4 ! user 1/0 List element. 
3 \¢ 0874 4 
; «81 0875 4 14 
> 814 0876 4 ! Compensate if extended format Iw.m, etc., which makes 
s 83 0877 4 ' no difference here. 
; 816 0878 4 = 
; 817 0879 4 
; 38 erty ? IF .FMT_CODE GEQU XO THEN FMT_CODE = .FMT_CODE = (_L + 3) ELSE FMT_CODE = .FMT_CODE - _L; 
; 820 pag 4 !- 
3 eh 0885 4 
; 822 0884 5 IF (.ELEM_TYPE GEQU DSCS$K_DTYPE_Q) AND (.FMT_CODE EQLU (_L = _L) OR .FMT_CODE EQLU (_I - _L) | 
3 Bes 0885 4 THEN 
> 824 0886 5 BEGIN 
3: Bed 0887 5 CCB CISB$B_ERR_NO] = FORSK_FORVARMIS; 
; 826 0888 5 S = ZUPVAL; 
; 827 0889 5 
; 828 0890 4 ELSE 
; 829 0891 4 S$ = .€L SIZE; ; 
; 830 0892 4 ; 
; 831 08935 4 '+ : 
3 org 0894 4 ' 2) Call aparger tate Library conversion routine : 
; 83 0895 4 ! Sign extend (1,L) or zero-extend (0,2) result (V). ; 
; 834 0896 4 ! If value could not fit, SIGNAL FORS$_INPCONERR : 
; 835 0897 4 i (64="INPUT CONVERSION ERROR' - low order bits stored correctly. : 
; 836 0898 4 !- : 
; 837 0899 4 
; 838 0900 4 IF NOT (.AA_LIN_CVT C.FMT_CODE]) (DSC, .ELEM_ADR, .S, .CCB CISB$B_INP_FLAGS]) 
; 839 0901 4 THEN 
: 840 0902 4 + 
3; «6841 0903 4 ! If this is an indexed or internal file, then don't 
: 842 0904 4 ! try to put out a record number. 
: 843 0905 4 '- 
3; 844 0906 4 : 
3 oH 44:44 ? IF (.CCB CLUBSB_ORGAN] EQL LUBSK_ORG_INDEX) OR (.CCB CLUBS$SW_LUN] EQL LUB$K_LUN_ENCD) : 
: 4 3444 2 BLS FORSSSIGNAL (FORSK_INPCONERR, FORS_INVTEX, 1, DSC) ; 
$ ae) Boys 2 FORSSSIGNAL (FORSK_INPCONERR, FORS_INVTEXREC, 2, DSC, .CCB CLUBSL_LOG_RECNO) - 1); : ! 
; 851 $918 4 DT_SEEN = 1; st 
: $36 0914 END; ! End of L,0,1,2 input zl 
3; 85 915 :f 
: 854 916 (9] : s ( 
; 855 917 
: 856 0918 '¢ 
a 6Go7 0919 ' ALL Floating formats (F,E£,G,D) input: 
; 858 920 !e 
; 859 921 
; 60 9 ¢ 4 BEGIN 
; 861 09 4 
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etd 14- ~8ep-19 4 90:48:80 FORRTL.SRCJFORUDFRF .B32;1 . (4) 
; 86 924 4 '+ 
: 86 925 4 ' Call nee epprveriate gonyers jon routine 
: 864 9 § 4 i 1f the value did n t in field, SIGNAL FOR$_INPCONERR 
; 865 09 4 i (INPUT CONVERSION. ERROR) 
3; 8 0928 4 i 
; 86 0929 4 i Store the floating value 
; 868 0930 4 '- 
; 869 0931 4 
; 70 09 ¢ 4 + 
; 871 09 4 ! Check for correct datatype 
3 872 0934 4 l= 
: 872 $332 4 
; 874 P 0936 4 IF ONE_OF (.ELEM_TYPE, DSCSK pryce fF, DSCSK_DTYPE_D, 
: 875 0937 5 DSTSK_DTYPE_G, DSC$K_DTYPE_H 
; 876 0938 4 
; 877 0939 5 BEGIN 
; 878 0940 g IF NOT (.AA_IN_CVT C.ELEM_TYPE]) 
; 879 0941 SC. et etre ADR, .CCB CISB$B_FMT_DJ, .CCB CISBSB_FMT_PJ, 
; 880 0942 5 a 1SB$B. INP_FLAGS)) 
: 881 0943 5 THEN 
; 882 0944 5 i+ . 
; 883 0945 5 ! If this is an indexed or internal file, then don't 
; 884 0946 5 ' try to put out a record number. 
: 885 0947 5 '- 
; 886 0948 5 
; 887 0949 5 IF (.CCB CLUBSB_ORGAN] EQL LUBSK_ORG_INDEX) OR 
3 te 8330 3 (.CCB CLUBS@_LUN] EQL LUBSK_CUN_ENCD) 
3 aoY 44 3 FORSSSIGNAL (FORSK_INPCONERR, FORS_INVTEX, 1, DSC) 
; 89 0954 5 ronses sent (FORSK_INPCONERR, hors. INVTEXREC, 2, DSC, 
: 89 0955 5 CCB CLUBSL_LOG_RECNOJ - 
; 894 0956 5 END 
; 895 0957 4 ELSE 
; 896 0958 5 BEGIN 
; 897 0959 5 
; 898 0960 5 "botetens is not floating. Convert as if F, sto 
; 899 0961 5 i correct size, and give “format/variable type aismatch’’ 
3 0962 5 i error. 
: 901 0963 5 ie 
: 2 0964 5 
; 903 0965 5 LOCAL 
3 4 0966 5 F_VALUE; 
: 905 0967 5 : 
: 906 0968 5 OTSSCVT_T_F (DSC, F_VALUE 68 Cisese., an Dj 
: 907 0969 5 [is B88 B EMT~ P), .¢cB CISB$B ! KcS}); 
> 908 0970 5 ae ADR)<0, MIN (2, EL SIZE) s4BPURITY, Pott : .F_VALUE; 
: 0971 5 CCB 1SB$B_ERR_NO) = FORSK_FORVARMIS 
: 910 0972 4 : 
; (911 09735 4 
3 aig 0974 4 '¢ 
7; (91 0975 4 ! Exit loop and return to user program 
> 916 0976 4 !e é 
s 915 977 4 
; 916 978 4 DT_SEEN = 1; 
; 917 979 ; END; ! End of F G D output 
; 918 0980 TES; ' End of CASE t entire loop) 
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; Routine Size: 


4 (R1) 
R4, #3145752, RO 
43$ 


719 (tCB), -(§P) 
-120(C€CB); =(SP) 
-117(CCB), -(SP) 
ELEM_ADR 

DSc 

#5, (RO) 

RO. 45$ 
-60(CCB), #3 
41$ 

-58(CCB), #-5 
42$ 

DSC 

#1 

#1607740 

#64, -(SP) 

Wh, FORSSSIGNAL 
#1, -32(CCB), -(SP) 
ps¢ 

#2 

#1607732 

#64, -(SP) 

#5, FORSSSIGNAL 
45$ 


#1, DT SEEN 
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a $ 0987 1 ROUTINE DO_READ ( ' read formatted record and do per-record proc. ‘ 
3; 9 8464 1 FORSSREC_xn) ! adr. or record processing routine ‘ 
; 928 0989 1 : JSB_DO_READ NOVALUE = : 
; 929 0990 1 !+ : 
; 4 : 94 } ; FUNCTIONAL DESCRIPTION: : 
; 338 9998 1% DO_READ is a local routine which inputs the next record by calling the appropriate ; 
3 33 Bee 1 record precess ing routine depending on the statement type ‘ 
i 934 995 1! (ISBSBSTTM_TYPE) and formal parameter FORSSREC_xn whic ‘ 
3; 935 0996 1! is either (1) FORSSREC_x1 if this is not the last record : 
3; 9s 0997 1! of the I/o statement or (2) FORSSREC_ x9 if the is the last — : 
s Yor 0998 1! record of the 1/0 statement, i.e., this is the end of 1/0 list call. ‘ 
; 938 0999 1! Then is performs ary per-record initialization. ; 
; 939 1000 1! Note: DO_READ is called directly from FORSSUDF_RFO if ; 
; 940 1001 1! next format byte is an end-of-format one, thus paving ‘ 
; 941 100¢ 1 | 2 expensive calls to FORSSUDF_RF1 and FORSSFMTIN]. Thus | : 
; ae8 IL : DO_READ has all processing needed to read a record. : 
3 944 1005 1 ! CALLING SEQUENCE: | : 
> 945 1006 1! : 
; 946 1007 1! JSB DO_READ (RO=for$$rec_xn.s.ar) : 
; 947 1008 1! ‘ 
; 948 1009 1 ! FORMAL PARAMETERS: : 
; 949 1010 1! ‘ 
3 3 ae : FORSSREC_xn.s.ar Adr. of record processing routine (NOT PIC) ‘ 
; 1018 1 ! IMPLICIT INPUTS: ; 
3; 1014 1! ‘ 
; 954 1015 1! OTSS$$A_CUR_LUB Pointer to current logical unit block ‘ 
; 955 1016 1! (LUB). Used to setup base pointer ISB ‘ 
; 956 1017 1! to current 1/0 statement block ‘ 
; 957 1018 1! ‘ 
; 958 1019 1 ! IMPLICIT OUTPUTS: ; 
; 959 1020 1! : ‘ 
; 960 1021 1! The fol Loving Locations are set only by previous calls ‘ 
3 +d 10s¢ : : to FORSSUDF_RF{O,1}, i.e., are effectively OWN for this module. ‘ 
; 365 1024 1! LUBS$A_BUF _PTR Pointer: Set to beginning of input record ‘ 
; 964 1025 1! LUBSA_BUF _PTR Pointer: set to beginning of input record ‘ 
; 965 1026 1! LUBSA_BUF HIGH Pointer: set to beginning of input recordn : 
; 966 Ger 3: LUBS$A_BUF _END Pointer: set to last char+1 of input record ‘ 
; 967 1028 1 !-- | ‘ 
: 968 1962 1 : 
; 969 1030 § BEGIN ‘ 
; 970 1031 ; 
; 971 1036 EXTERNAL REGISTER : 
3; 7 103 CCB : REF SFORSCCB_DECL; ° 
Te 1034 : 
: 974 1035 '¢ : 
; 975 1036 ! Input record. ay e ° 
; 976 1037 ' Return with new beginning and end pointers | : 
; 977 1038 ! to next user data buffer to be processed as input. ‘ 
; 978 1039 !e ‘ 
: 979 1040 ‘ 
; 980 1041 JSB_REC1 (.FORSSREC_xn); : 
: «981 1066 ‘ 
3; 6982 104 '¢ ‘ 
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! Initialize peg tan tng and Wi ghest pointer (T format) 
to the first character position in the input record buffer 


5 
§ - 
5 
; 


CCB FL LUBSA_BUF _BEG -CCB a UBSA_BUF PTR); 
CCB LLU 
RETURN; 
EN 


EG) = 
B CLUBSA_BUF HIGH] = .CCB CLUB$A_BUF_PTR); 
TU ' Return from DO_READ routine 
D; ! End of DO_READ™ routine 


co. 


woowownowowondon 
SUSAR 


Sete Ge Oe Oe ee Ge ee 


ow 
a ts 


lolelelelelelela) 


VINE EEE 


60 16 00000 DO_READ: Se (FORSS$REC_XN) 

Bc AB BO AB 00 0000 MOVL =B0(CCB) ,~=68(CCB) 

CO AB B0 AB D0 0000 MOVL -B0(CCB); -64(CCB) 
05 0000C RSB 


; Routine Size: 13 bytes, Routine Base: _FORSCODE + 0370 


991 1052 #1 


rae 
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ee 14-Sep-19 4 93:98:85 FORRTL. SRC IFORUDFRF -83 31 ’ (6) 
993 GLOBAL ROUTINE FORSSUDF _RF9 ! Formatted input = end of 1/0 List call 
99% : JSB_UDF9 NOVALUE = 


1+ 
! FUNCTIONAL DESCRIPTION: 


FORSSUDF _RF9 performs end of 1/9 List input formatting. 
It only calls the FORSSUDF_RF1 if there were no 1/0 List 


2 
Se 


99 
998 
999 


S 


elements at all, else it need do nothing. 


Sss 

wn 
COoocoo 
FSFSSEARAAAAAA 


ALL format codes are processed until a data transmitting 
format code is encountered (or colon) or end of format. 


CALLING SEQUENCE: 


S33 


; 1053 1 ‘ 
; 1054 1 3 
3 : 5 ! : 
; 1087 | 7 
; 1089 1 | i 
$1 1060 1 | ; 
: 1888 : 
1 1068 4 
31 1064 1! : 
31 1065 1! : 
$ 1888 1 Roa 
i 1008 1068 1 | JSB FORSSUDF_RF9 () | 
: 1010 1070 1 | FORMAL PARAMETERS: | 
3 1011 1071 1! : 
a ind) pee 
; 1014 107% | IMPLICIT INPUTS: | 
: 1016 1076 | i See FORSSUDF_RF1 ; 
.| ee ca: 
: 1019 1079 IMPLICIT OUTPUTS: : 
; 193 1081} See FORSSUDF_RF1 | 
: 1098 1088 1 i FUNCTION VALUE: | 
3 1024 1084 1! : 
ie ae oe OF 
; 1087 1087 ! SIDE EFFECTS: | 
; 1089 1089 1 | See FORSSUDF_RF1 | : 
: 1030 1090 1 i-- | ; 
3 1081 1091 1 | : 
im. mio ie: 
> 1034 1094 EXTERNAL REGISTER | ; 
3 1035 1095 CCB : REF SFORSCCB_DECL; : 
; 1939 1999 '¢ : 
; 1038 1098 !' If there were no items in 1/0 List, then the current format ; 
3; 1039 1099 ! character is zero. In this case, call FORSSUDF_RF1 to execute : 
; 1040 1100 ! non data-transmitting format codes. Otherwise, do nothing : 
3 1949 1108 because we have already executed all required formats. : 
> 104 11 P 
3 1968 1198 IF .CCB CISBSB_FMT_CODE] EQL 0 THEN FORSSUDF_RF1 (0, 0, 0); : 
> 106 110 RETURN; ; 
3 1049 1109 1 END; ! End of FORSSUDF_RF9 Routine : 


fopsfuor 1$-9¢0-]884 99:46:82 YANcI Ob fag 82 y4s-742 


8F AB 95 00000 FORSSUDF _RF9:: 
TSTB =113(CCB) 
99 ye 8 BNEQ 1 
—e 7 CLRQ = (SP) 
43 D4 5 CLRL =(SP) 
FD36—SsCCF 0 fe 009 CALLS #3, FORSSUDF _RF1 
05 QOOOE 1$: RSB 


; Routine Size: 15 bytes, Routine Base: _FORSCODE + 0370 


; 1048 1108 1 


) 


Pose 38 | 


: 


1 


BIenruoe “NS 


OR 


DF _RF 


FRESE RAR RAR AAA 
Wr—OO 


SSSEESES 


OWWOOWOWOOWOMOWONNNANANNS 


SOONAUE WO OONOUS wr 


ooo 


wun 


ce ee ee ee ee et ee ee ee ce ae ce ee ee a a ee ed ed ed 


COOSCOCOCOOSOOOCOOOOCOOCOOCOOOOCOOOCOO 


oO 


Routine Size: 
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14-Sep-1984 12:32:50 FORRTL.SRCJFORUDFRF .B32;1 
1199 1 ROUTINE MOVE_CHAR ( ! Move characters 
1110 1 LEN ' Fill Length 
1111 «1 SOURCE, ' Source address 
1116 1 DEST) ! Destination address 
1115 «1 : NOVALUE = 
1114 «1 
1115 1 S44 
1118 : } FUNCTIONAL DESCRIPTION: 
1118 1! MOVE CHAR moves characters from one string to another. It is 
1119 1! identical to CHSMOVE except that it does not return a value. 
1120 1! A_ separate called routine is used so that registers RO through 
3 1 : R5 are free in the calling routine. 
e § 1 CALLING SEQUENCE: 
1182 : CALL MOVE_CHAR (Len.rwu.v, source.rbu.r, dest.wbu.r) 
Vist : FORMAL PARAMETERS: 
1\$% 1! len Number of bytes to move. 
1130 1! source Address of string to move from. 
V3 : dest Address of string to move to. 
1133 1 ! IMPLICIT INPUTS: 
1134 1! 
1135 1! NONE 
1136 1! 
1137 1°! IMPLICIT OUTPUTS: 
1138 1! 
1139 1! NONE 
1140 1! 
1141 1 =! FUNCTION VALUE: 
1336 1! 
114 1! NONE 
1144 1! 
1145 1°! SIDE EFFECTS: 
1146 1! 
1147 1! NONE 
1148 1! 
1149 1 
1150 1 !++¢ 
1151 3 BEGIN 
1136 CHS$MOVE (.LEN, .SOURCE, .DEST); 
1153 1 END; 


003¢ 00000 MOVE_CHAR: 
oc BC 08 BC 04 AC 28 00002 moves GENS 8 
ge 0009 RET . 


mn 


2R4,R5 
CE, aDEST 


10 bytes, Routine Base: _FORSCODE + 038C 
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e 
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o 
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198s 93:48:86 
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12788 
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eh 13738871982 99:98:85 EPSante sre Sronubrar.633,1 ee 
; 10 1154 1 ROUTINE COPY_CHAR ( ' Copy characters ; 
: 1099 1155 1 OURCE_LEN ! Length of source : 
: 1098 11 \ 1 SOURCE ADDR, i Address of source 
; 1099 11 1 DEST_LEN ! Length of destination : 
: 1109 1128 : DEST-ADDR) ! Address of destination : 
; 1108 1160 1 ; 
; 110 1161 1 S44 : 
: Vibe 1396 ! FUNCTIONAL DESCRIPTION: ; 
> 1106 1164 1! COPY_CHAR moves characters from one string to another, blank podding ; 
: 110% 1165 1! if necessary. It is equivalent to a CHSCOPY with a blank fill. : 
; 1108 1166 1! A_separate called routine is used so that registers RO through 
: 1198 2 : } RS are free in the calling routine. 
; 1111 1169 1 | CALLING SEQUENCE: | 
; 118 Viet : ! pointer.rbu.v = COPY_CHAR (source_len.rwu.v, source_addr.rbu.r, dest_len.rwu.v, dest_addr.wbu.r) 
; 1145 1173 i FORMAL PARAMETERS: | 
> 1117 1175 1! source_len Number of bytes in source 
; 1118 1176 1! source_addr Address of source 
3; 1119 1177 1! dest_len Number of bytes in destination 
; 11g BEA ! dest_addr Address of destination 
; 1128 1180 | { IMPLICIT INPUTS: 
> 1124 118¢ 1! NONE 
3: 1125 1183 1! 
; 1156 HH ; : IMPLICIT OUTPUTS: 
: 1128 1186 1! NONE 
; \\$> 1187 1! 
: ite BF ' : FUNCTION VALUE : | 
: 1136 iiay : : The address of the next byte past the destination. | 
; 1134 1198 | i SIDE EFFECTS: | 
: 1136 1194 1! NONE 
3 1137 1195 1! 
; 1138 1196 1 
3 1139 1197 1 4+ 
3; 1140 1198 2 BEGIN 
3 1141 1199 2 RETURN CHSCOPY (.SOURCE_LEN, .SOURCE_ADDR, %C' ', .DEST_LEN, .DEST_ADDR); 
3 1142 1200 1 END; 
003C 00000 COPY_CHAR: 
WO Save R2,R35,R4,R5 : 1154 
oc AC 20 08 BC 04 AC 2C 00002 MOVCS SOURCE LEN, @SOURCE_ADDR, #52, DEST_LEN, - ; 1199) 
10 Bf A @DEST_ADDR : 
50 bDO 0000C MOVL R3, RO : 
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1-043 14- 8ep-1984 99: $3: $5 FORRTL.SRCIFORUDERF .B3 1 ° a 
04 0000F RET 3 1200 | 
; Routine Size: 16 bytes, Routine Base: _FORSCODE + 0396 
3 1143 1201 1 END ! End of FORSSUDF_RF Module 
3 1144 1 86 
3 11465 1205 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: _FORSCODE 738 NOVEC,NOWRT, RD, EXE, SHR, LCL, RE CON, pis Ab ante? 
s =FORSDATA 120 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL CON, PIC,ALIGN(2) 
; Library Statistics 
a ee ee eg Symbols -------- Pages Processing 
; File Total Loaded Percent Mapped Tim 
! _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 12 0 581 00: :01.0 
> ~$255$DUA28: EOnn Ths BOI I URL IB -b asst 711 209 29 52 700.6 
3; ~$255$DUA28: CFORRTL.OBJIRTLLIB.L32;1 36 0 0 8 00:00.1 
é COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:F ORUDFRF /OBJ=OBJ$:FORUDFRF MSRC$:FORUDF RFE /UPDATE=(ENHS$:F ORUDF RE ) 
3 Size:. 880 co ¢ + 174 data bytes 
3; Run Time: 00:25.1 
; Elapsed Time: 00:59.3 
3 Lines/CPU Min: $8 re 
3; Lexemes/CPU-Min: 1777 
: pee | Used: 308 pages 
; Compilation Complete 
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